use Net::SCP::Expect;

my $scpObj = Net::SCP::Expect->new(host=>'192.168.1.109', auto_yes=>1, user=>'root', password=>'ieihc@a');
$scpObj->scp('/var/ssss00003.mov', '/var/trancode');  
print $_;
